home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
TPEX.ZIP
/
C8REVEX2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-09-04
|
872b
|
41 lines
{
Programming in Turbo Pascal.
Turbo Pascal By Example By Greg Perry.
Chapter 8 Review Exercise #2.
Robert E. Wade 9-4-93
}
PROGRAM StringVariables;
USES Crt, Printer;
CONST Spc = ' ';
c1 = 20;
c2 = 20;
c3 = 20;
VAR FirstName: STRING[30];
MiddleName: STRING[30];
LastName: STRING[30];
BEGIN
CLRSCR;
{ Assign data to variables }
FirstName := 'Robert';
MiddleName := 'Eric';
LastName := 'Wade';
{ Display the data to the screen }
WRITELN( LastName, ', ', FirstName, ' ', MiddleName );
WRITELN;
WRITELN( LastName:c1, FirstName:c2, MiddleName:c3 );
{ Print the data on a printer }
WRITELN(LST, LastName, ', ', FirstName, ' ', MiddleName );
WRITELN(LST, LastName:c1, FirstName:c2, MiddleName:c3 );
END.